Maple Tool 3

This tool is designed for use with Checkpoint 1 in Section 5.4.

>	with(stats[statplots]):with(plots):

Warning, these names have been redefined: boxplot, histogram, scatterplot, xscale, xshift, xyexchange, xzexchange, yscale, yshift, yzexchange, zscale, zshift

Here are the data for average monthly highs and lows.

>	Months:=[1,2,3,4,5,6,7,8,9,10,11,12]: Highs:=[43,47,57,67,74,82,86,84,77,66,58,48]; Lows:=[26,29,36,44,53,62,67,66,59,47,38,31];

We calculate the mean monthly temperatures.

>	Mean:=(Highs+Lows)/2;

We plot the monthly high, low, and average temperatures.

>	HighPlot:=scatterplot(Months,Highs,color=navy, thickness=2, view=[0..13,0..100], xtickmarks=[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12], ytickmarks=[0,20,40,60,80,100]):

>	LowPlot:=scatterplot(Months,Lows,color=navy, thickness=2, view=[0..13,0..100], xtickmarks=[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12], ytickmarks=[0,20,40,60,80,100]):

>	MeanPlot:=scatterplot(Months,Mean,color=red, thickness=2, view=[0..13,0..100], xtickmarks=[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12], ytickmarks=[0,20,40,60,80,100]):

>	display(HighPlot, LowPlot, MeanPlot);

Now enter values for , , , and  (standing in for ), and compare the graph of the model function to the data.

>	A:=(153/2+69/2)/2; B:=(153/2-69/2)/2; C:=Pi/6; delta:=4.1; T:=t->A+B*sin(C*(t-delta)); TPlot:=plot(T(t),t=0..12): display(MeanPlot,TPlot);

>

>